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Posted. hardiaré presentations. £ 18K —ratibals 
FORMAT: Each meeting itl take uiis 8326 be mort helveeuil, I 
the Following format: Tr argone 542 CONS udev UNG The purché (e جح‎ 
---President'/s address and intro & ETE BACH moder for their ip T uni 
of neu membe የ5. . . unl ይ) YE pacts £ or: à COUE OS mentes 
£ 7 PUE: unti x ኮ '5 teet LTA pains are cer 

-- | ፎሮ ነ Y = 

none "p ue te ME nec ceived "todate, = مقع عام‎ fed 2 ييه‎ 
mt اا‎ re Review imaximum ge that Contained & defective Big ይኸ] tHE 
er x tor > UNIT had t2 he returnes For TEPA” £, Ma ET 
Eie e rniment e t to rma L Par t G f doi Lar ወዬጅሮ i it. hat zt. 11 Tic IEET retur: 
---Informal: members dicuss ا ال‎ es 
common probiems, Swap programs BvEllakpl& aithouge I razred The fst — .* 


€1C,. م#عع‎ 


Meg Of tnis year, AL tne MOMENT tind be.” 
Will Only Operate Wath v kit-no-P&DI 
ድ፥ፒ.ሪቲ 1 ممت‎ whe are feu ata FEF petuecn. 


n. 





[3 [ገ [ገ [ጋ [ጋ [ጋ ፳ لا‎ 


LLL... .. ስ ስእችችሽችችችችችችመችችችችሽችሽሻመመዎቸችቻቻችችኃፀኃፀ4ቻኃፏጳኃፀፏፀኃኃሪፀፅፀሪፀ ጮሻ ብ‏ ل س 


need SOMEONE tc SET up OUr 28ቀጊ ህይ ”ዴ‏ علا 
and hardware technical literature and 2 E‏ 
understand that two — individuals have R NOTE. FROM THE U.K.‏ 
proposed tco establish just that. Mes I‏ 
SUGGEST. that David Sally and Derek Chana T: I had ዕርርል5 3ርኸ to visit several commuter‏ 
develop their proposait tco the bett CF retail dealers in the U.K. during May.‏ 
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Good Lora, Whe ere they? 
I wijl return to active developtierit. sit 
‘the Baskerville BBE shortly. 


Tre Editor 


E 


Fo" those Prospective puters ርፉ the H 
Unit&, there if akszolutelu  nothinad area 
with the hardware, Thes — Function 
advertised, the quners have Woved to Th 
ፎር= ma Cha NES E 


T 


c 
3 
€ 











8 نا لا لا ا نالا 


th 


Ji FN EE تي‎ 
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COMPATRBEITITY 

The membership should be aware thet 
althougk tre FOetuare fOr both THE i3 
leao's. Zx iz afid the 20535 teemt TC 
nave virtually dried up. there 42 still e 


Vast ናሀይይ1 oF Current and new zoftua^e 
afd hardware support available, The 50112 
rub iz that it is only available from t 
Wak. and that no 2665 Support is evident, 

However there are encrincus meu 
none the less. ኮፍ + حرق‎ ል the T 
10608 ١ 2 2-5115 are concerned. the Softwa” 
i$ Ch&ape" even with the Exchange afi i 
there in quaüntitg. AS well there 12 
ጅሮ ባኞ ፈ በህፊከ hardware support, All this 3 
compat rabality as well, 
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Specific Spectrum software., I am sure test 
WE Wall discover š goca cOMpatabilitg, 3C 
do not dispainr, it if ail available nC, 
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FOU 4-5221 3 EXISTAN SE and 32 š 
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SOF TUARE” ; I aM reisoráirly zure that عم‎ 
Will  5ravide UE Math tre 116665 z arly 
6/4942 1575ل‎ services if ENCU orders bs 
the enmerticig can be plated, Lets ALI 
Stick tco3ether to make thizt werk. 
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US ፤ በርህ that there is Support for us 
there. To be fair I have lasted Cre 
be l cut: 

GAMES TO LEARN BY 
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STREET 
WILLI JMASS. 196 


cortware and አልየ ع فيك‎ support ቀ 
TS1999 and 2968 9 sor 


G. RUSSEL ELECTRONICS 

RD 2. BOX 539 
CENTER 
PA, 16828 
Mostly hardware support for poth mach nes 
COMPUSA CORP. 
43234. “መቹ መናር. RD. 

MOUNTRINSIDE, NEW JERSEY 

97092 
Mainly hardware support for the TS 1900'5 
bi. J.1. DATA SYSTEMS 
4 BUTTERFLY DRIVE. 
HAUPPRUSE, NEW ‘YORK 


11788 I — 
Software fOr bOth machines (€xtensive: 


COMPROCS'"S LTD. 
29 CAMPDEN RD. 
SOUTM CROYDON. 
ENGLAND CRe7ER. 
ROM Assemblers (ASZMIC & S.P. ROMS) 
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4Q REM DESIGNED ToO "HANDLE Lev 
52 REM RECORDS, IF TAIS so DII 
fii same من‎ you are aware. Jim Turner 60 REM SMALL FOR yOu. AND IF 
presented a software program that | rE ?Q REM YOU HAVE THE MEMORY 
designed and implamerited cr his Guy, Thus GO REM CHANGE Ec ieig 
program iS á Utilits graphics program SQ REM AS جع عير‎ 
called ' 1080 REM 
11 PREM OF COURSE. YOU SMILI 
ኋፎፎ REM Do THIS BEFORE you 
130 FEM START BUILDING TRE 
342 REM FILE, OTHERWISE, 
158 REM INITIAL IZING me NE. LI 
160 REM ARRAY WILL DESTROY AN 
170 SEM EXISTING DATA. 
1830 REM 
199 REM PROGRAM WRITTEN EY LEC 
EDO REM FOES, GOTOBER 12.2528, 
ይ35 REM LET ME ENGE IF yl RAVE 
e220 REM PROBLEMS OF 
ese REM SUGGESTIONS. 





es@ NEST F 
© Ottawa 575 User Group S82 FOR Fei TO 25 
=1@ PRINT AT 10 22-F 28:22 ”ፐ፦ 1 
TAT 10,7 414,278 17 TO E32. 
SED NEXT F 
In e:seünce This program efarler or to co! PRINT AT 10.0 "UTS ET ረጅ 
JELY a Screen page or FOr thit Wetten £86," RECOR' : AT ið., To “;ይፕ IC 
portions of ረ sereen to use oat rer er," RECO’; AT ið ጅኛ: "5 “AT 1g zz 
programs gou mas Wish to develoe. ፐር state :“ REC’ AT 10,0; “J; AT 22.25  “ 
Some Of the kuilt in facilities ine E" AT 26,0;AT 10,20;" RA 22 C 
progr ad supporti: Circle, dort. 2." »AT 10,31. d 
bruch ¢ila rectangle, erase. Line, grid, uae S4 CLS 
ፎቶ cis Tee PRINT AT e. 23 ; "ERE 
S68 LET O=@ 
In ezzence trni? pregna i£ weil ሣፎድ 4 gies CPO FRINT FT الراك‎ 1, 1MNl I=L LIZZ 
ana presented af the title piye fugger Tc. TIN ROUTINE: ` 
Mil ቀህስፎፒ4ፈሮዌከኸፎ work == Adeertised and are ceo PRINT AT 5,20. "2, UFDATE =.” 
ህ2 == Without at fus BRout — sett." C REICORD;" 
CO-Ordinatezs ርዮ other suck nonzence. There “92 PPINT AT &.2."3, Fi. /ዉ ‹ሙ 
are Oniy two Set-back: i+ you cat cel! T RERIT, 
them that, that if ill rome Cases Tre 4200 PRIHT PT 3ኛ ,ጅኛ. ''.4. FOR ፳ጆ=”ሮ፦ 
EVEUtiOnN OF à functio such As eLp AL REPORT," ; | 
takes ã Considerable amount cr time ania 340 PRINT AT 12 Q;"5, FOR ኮ2'4- 
Wc PRESENTS require s — joystick TG ዚፕ. LY FAVERAGES.* 
the program. AP far A5 I at concer tes 420 PRINT AT 14.8:°6,. TO -2--zt 
Neither ct these fhOwlad pē ርይህ2ዬ FOr T & RECORD." E 
concerti. Femenzer that wath: ThE ዬ።5ፎዬፒ ፊ2፣) 420 ERINT AT 16,2 2, ፕሮ SHS = 
c£ tac Short machine Coae SECTIONS The EZAR MITH COTA, p 
rest ዕፉ the program it done Entirely ain &4g2 PEINT AT 1898,0;"8, FOR NE = 
Baiile UCT IONS 
¿SQ INPUT A 
One other thing that 2ኮከርህ1334 be ET tea .2 460 IF ددعت‎ THEN ZIT OTIC 
that this progran is MOT for fale, ልያ ድ 470 IF Asi THEN SOTO 32222 
hatter CF act Jin Turner as deaicatea 422 IF ጸ:›= THEN GCOT- 50 
this program to cur users group Free | ርት 490 IF ፲=2 THEN لاع‎ BISE 
Charge, i cost OF Cassette excluded : E22 GST OSTA ር 
شرع‎ IF Asá THEM OTO ጅ==ኤ 
Without — further bantering aboUt... S22 IF As5 TREN ote EUe 
CONGRATULATIONS Jim Turner ror z jOR Wes. E38 IF قتعم‎ THEN Sere ork 
dong atid for the Spirit. aru ve ETA S42 IF Ast THEN eoTo zose 
dedication to the group you have how, ESO IF R=z THEN GOTI Elat 
Thiz if Exactly the type GF service That مجع‎ GOTO ዌሩ Mm 
wë would like to see ore c. ممع‎ FEM UPCATE RELL 
Eze FOr 4521 TO. $E 
THE EDITOR sad CLF 
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AN 10" 

PRINT "ENTRIES TO START BIT 
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PRINT "To SEE 

INFUT D 
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1 SCROLL 
1 SCROLL 
1 FRIST AT 28,0: [MONTHS RT ee 
,2, "RVUERAGE' / AT 22.22, AVERAGE 
1280 SOROL 
14230 FEINT AT ž0, 11, "MFG". AT ze 
EO." 'ኤፐ/ሮኋፎይፎኮ.ኮ'(' 
1208 SCROLL 
1210 ZCPOLL 
lSgQ FOR Pzi ፕሮ SIZE 
2230 IF K(Pizü TREN GUSTO 5223 
2342 IF D5€iP,3 Tr Fi =55ክሜጄ !ቻ+2 .2 TI 
i THEN GSTS 2ፊራጅ 
cec LET M£zzTR£S$ INT kM- BEL 
-ll*.zgg0lixig: 180) 
ED LET LgstTRs INT !ኤ2 : ጭ14ፍሎርፎ-” 
10€) 10; 
T IF 
I 
ar 


De ]1[ :ص‎ Me X t> -. = 
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seno قيمع‎ D$£iF,3 T2 = . 
51%, AT zo, ZZ L$. eT Z: . መሬ 


mor r £ OTHE 
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EOD 


LET iu O ا‎ 
LET LITz =L 1 

HEYT F 

LET ኮ ክሣ።=፤ፐኮ'ተ+ CR (Rat —F Rs: 
LET LIT=LIT+- (ምተ. ፤ 

NEXT P 

REM CORRECTIO! 
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YOU Must" INPUT THE ERE 
ENTERED". "DATE (BUEN IF 
ከር , YNCOPREETLY io 


«RINT “THE COMPUTER HILL “== 

you FORTHE NEU DATE, G22 

READING, AND LITRES BO SO 

i30 FRINT 

25482 PEINT "FOR A GIVEN RE 

oe MUS aT brc es ALL TH 
“ELEMENT š 

issé PRINT ,.,., 

1560 PRINT "aa CATE We > oe 

a FOR THE", “RECORD Yu WIS TA I 

ORRECT TUI (DPMMMY š : 

1570 ፓክህኮህፕ Es 

4520 CLS EET 

4525 FAINT AT 10 2; hOuU BEAS 

G FOR "|; ES 


J Z= 
y4 
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S20 IF I:2 THEN PRANI 


eT 2,8. 1 

AST DETE IN RECORD. >; D$I- 

E20 FEINT RT 4, e. "ON WRAT Day & 
az FUEL’, “PURCHASED {OCHS ግ” 
5=5 INPUT S$ - 

E20 IF LEN 23$€$:-7 THEN FOTIA PES 
546 LET Osiris5¢ 

ፎሮ FRINT AT 4,2, ''ሁህ! የመ” WAS THE 
QODCMETEF READING’ . "at SiS Te 
s); ".8$:1 TE E^. , 5. 28፡2 TŠ 

"P ዓፍ k 

£ ao INPUT HUI: 
ES WERE “PURE HASÈ mo ተ ኤኮ ost TL 
Ei" “SEIL TO £).", 18 :55!6 T 
= Fi. " AT CDOMETER", REMHDZIMC "3 
Kirt':" 7" 

ESS INPUT LII! 

ESC PEINT AT 16.8, "HORE FETE (Y 
Ai oT" 

TOO INPUT Ag 

710 IF ابوج وم‎ THEN NEST I 

TZO GOTO Qzze 

T30 REM FULL OUTPUT FEZ=3FET 

74 LET Zzz 

TSA CLS 

7650 FEINT P" zC. 2; ODETE”; at, 

"EM", AT 20,22; 'MP6" ET 2e. E,‏ رق 
Ls TT : Fi u‏ 

778 STROLL 

Tee PRINT GT 20,11, DRIEN ع‎ 
gO,z7." 1800CM' 

THO ZCEÉCLL 

eo! SCROLL 

eid FOR =Z Th ZIZE 

Ee IF Ff li =5 THEN SITE عتم‎ 

Se LET RMEIUT ir: iek fue] 

E32 LET 15 جع 3 ع‎ (INT ! !ኢኮ-=ን,ሮዴሬ:= 
“'ኤ |ኒፄ!: s ፎፎጄ 418 . 28: 

SQ LET 01 هه‎ 2252595 iN: frg + 
rela: 210: 

ce ZF IN" URL قلات جه‎ MS TREN ፌ. 
ET &zM$-".0" 


-. 


£u ርክ 
፦4 

n 
Lm. 
tm 

4 


URL L$zUBL LS THEN L 
$=L_$+'.2" 


ë ë FRIHMT AT 20,0;:D5$:.);m7T EG&G 
ፎ: KM; AT 2gO.z1;:M$;:^7T ,قح‎ 22:15 

ESO PRINT AT 21,21; 

š SCROLL 

9 NEXT J 

9 SCROLL 

S30 PRINT AT 21.0: "PRESE ANY KE 


“ 
v 

ms 
` 


rat 2 0 59 መ eso (£9 —. MOM rares c 


RETURN TC ERER. 
IF INEKE 


GOTO ወሯፋፎ 
FEINT fT 3,0; "DATE 
iM CENTER 


ሮ3 


"e 


-<n ፉሩ -4(/ ከዐ 69 8) X di 


_ 29 


- 
.. 


z- 


USE ee 
TO et 
[EM PAR TIAL 


يدت 


REEPORT 


GBU 


I:2 THEN PRINT AT 212. j 
2ህ58. DATA FOR PARTIAL’ URE 
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Ayre Ps T) دم له‎ FDO -d 


ego 
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1 11 


ሚካ iT 6,ፎጅ, TRIS ROUTINE 
WILL PEINT GUT ዶ' 
11 PEINT "REPORT On THE LAST ri 
pe IES 0۴ 
FILE: WEZE 


1078 "PRINT “GREATER THEN 1 ANE ሬ 
ES: THAN '"'5;I 


2810 PRINT "BE CAREFUL TO INPUT 
DATES IN THEFÜRM OF "DCMI, 
E.G. JUNE" 

£e20 PRINT "16, i883 SHOULD BE E 


pz 30 PRINT meg م‎ GUNES So 
BC ING ZERCSZ," 


" 
(o 


2240 PRINT "SUCH BS “"67ህ.ህክዚ52” , 
2250 PRINT 

PRINT "SEE SLED THE REM ITE‏ الجاع 
TING AT"‏ 

2270 PRINT “LINES 3-ፎ= FOF INFI 
DN PROGRAM” 

2280 PRINT “MODIFICATION.” 

2290 PRINT ይፐ 20 2 “PREZE ano HE 
Y TO RETURN TC ERE. 

2500 IF INKEv$::""^ THEN GOTO C34 
2310 GTC 2200 








PRINT FACILITIES 


In the previous tuo issues I 3611615 


ates 
two print routines, ONE ifi Aio ልስ Tre 
equivalent. ih machine code. The net 
exploration oë Sinclacr  BEatic iéadé uf 
through Print AT ara TRE. 
First off let's do TRE 
Tab requires an argument af Either c 
number Or s variable but can alii take 2 
Mathematical ፎ::ይዮዬፎ2 2 5. ፲,5,፡,125ጅ TF. Tir 
C; or Tab irmd « S +a and is voc FE 
tak to set your print Fesiticn o" ይ 1.95€ 
for up to 22 positions 861555 ٠ In EE 
كراعش توا‎ You Can put- Tab Lez white Cl = 
Pisce JOUS print poziti & Lanes 32፡7, aoe 


it tne © Columm. Sinclair رتقع‎ 2  doer ot 
allow this. The bezt use CV e + و‎ 
if te set up ል erint porititn ሮስ ይ line الى‎ 
£uch programs ይ= 220117 i HE: ES gm DER ET. 
forget to put an the semi-Colon at Tee end 
ይፉ the araiment, 


The net -£4aCciiitg ii Print AT. ገጋ 
FUCT IGT kar tne MOET uide መ=: USE 
ail the print sttat&Wmenti,. - 
requires 2 arguments which identit -” 
the first position the lite Tumker from ፍ 
tC at. and iff the recone ition ዊጭጄ 
COolufli  numben from #ቋ te "ad" These 
ardent: Can again take Ine +O l4 


numbers. variables, or athena +274. 
FOF Id, It's kest. UES ig +C 36 + a 
print positions vilis Or the ireen جوت‎ 
the  Irnkeg$ — tunction iê E 


Controli, | 

It should be roted that what you wire to 
have pr.nted On tee screen ቋርፍ: Tes 
necettarild teed to fclicw either GF tre 
print Statements. AS a matter C+ FAL 
Bang Cases the program itsele uF 35652 32 
to calculate the positicn and TRE alte 
pri SL flay ke £Cattered throughout one 


YOu shOUld also know that pūt 
1 ሦ 2 Le 12 ቀ .ድ 
facilities have an error break it Int 


[ጆቫ [ገ ርገ ፒገ ር። ፪፪ E) 


nr 


1600 FOR ከ453 TO SIZE 1 
1610 IF ጅዌሄ=ርዌ !1) THEN 6310_1542 | 
1620 IF Kim) =5 AND Limi 55 THEN G 


5 + PRINT BT 4,15; "uw aaa 


4675 PRINT " NEU DATE i 


1680 PRINT AT 6,15; jam 


3525 PRINT AT 5,16 Û $ i M. 
5 SN PG. መ... 3 Q” 


1780 PRINT AT 10,15;" 
1710 PRINT " ODOMETER 


š 
720 PRINT AT 
i730 PRINT AT 
مهم‎ PRINT " 


TSA PRINT A 

1768 PRINT AT 

i = 
E 


1 
papa 


m- $ 5s 
rm" 


t^ 


TTO PRINT 
2780 FRINT 
EF READING.” 


fy -Jend ram 
3110) fe 
1 
r 
I z E 
፣ 


he የር w Fa ~ 
fan fee Jr 


4 
MI pe ቡሀ 
“HG 

x= 

z 


i720 INPUT E 
42002 LET KM) =E 
1512 PRINT AT 20.0; “ENTER NUMEZE 
iT RES EQUGHT," 
eG PRINT AT 12 Zü; E 


Inte መየበዬ ርህክ TÎ 

fy a የ የህ የ.) 
rr 

HI ግ H 
5 
X 
" 

emo هو‎ 


IP pÉIÁÉROmÓRB P PEbPIEES 
NOG 469 ክህ O MEO ON MIC 


Q GOTO 622 
Q CLS | 
@ PRINT AT i0.2; """;E& ° " N 
FOUND," 
Qa GATO 05 جاح‎ 
iC REM INITIGLIZESTIOnN SULT INE 
ፎሯ FEM CHANGE “SITE” Ta FIT 
MEMORY AVAILRSELE 
1232 LET 5122 2102 
1240 REH وخ‎ DATE FILE 
13253 DIM D$ 1522 nt 
42556 REM EKZzKILOMZTERF FILE 
120 DIM FO (SIZE: 
4080 FEM LzLITRE FILE 
123 DIM L'iIZIZE! 
2000 LET ጅ=3. 
zale L Csi 
eevee LET 12 
ፎሯ=ፎ PRINT AT ፊ.,ሮ.- ' 
4@ GOTO asso 
- GLS l ብ... ር 
62 PRINT RT 212 © UCeTERBT REIISSI 
PEERS ANY REY! 
FF TNT É Lin > ب‎ m i s 


ERI 
IF INKHE"€£z'" TREN SOTO ECS 
Cu 
SAVE “aura RECORD: 
COTO ezac _ 
REM INETSUCT IONS 
PRINT TAE s: EEE 


FRINT 


hho MI RD ኮን PD IM ኮን ክን ኮን 
دو هر‎ ሮ (2 የ3 OG OF 


ኮንኪነ 
«Mov un e WMe Gi on [° 


ነ e Ter be p 


PRINT "THIS FROGRPM HEEFZ ፦ 
ORD OF me 
23 PRINT "GASOLINE FiürocHesz2 = 
N ERFORMZS"' ን 
2130 PRINT “SOME BAZIC ጄ ==; =, | 
ONE FCR" 
2eis@ FRINT "SNALYSIS." 
2280 PRINT 


DDOODDBEN 





arguments 3o out of the bounds ot 1 the 
display file. To illustrate the bat if 
eunctioti OF these pritt facilities, 3 
Will find a short basic program. 


Z= GOLD CISGCER 


Print TAB a 
16 For ል = 1 te شك‎ - JUS SEDA ABD کے‎ ወህዉዉ ወት ጠወ/ጠዉ 
20 Print Tab a; t” - 8 ር 
"bci. ! | yuyaykukuy ل‎ 
42 rem dou should get an error when tne 525 — - 
Tak position reaches 32 à = 
PRINT AT 


52 For a= 1 te 22 
68 For b = 1 tc 24 
7@ Print At a,b;"s" 


ل ا seus‏ 





80 NEN, b 

90 Nest & s 

ie ዴፎ ቋር. ዩ«ኮርህ14 get an error when ይ - 2 ا نب ا 0ه 0ت 006 وه و 268.6 5 عع‎ ወ. መዉ s.s... 

22 ———— 
Of course these small Programs ቋር: ጋፉ።'ዑፊፎቫኣ፡ዘሀዘ(88ዚቪ1111ቪ11ቪ118111 

nothing Other than print to the 5256675 

using VERY elimentary functions and 

arguments. However the pocsabslites ¿Š 

there to use Comp les FF CAT ata 4 Tr 

principles and make these tuc Functions ቋር: : 

rather special things. I will leave there mW is 3 i a D a. ጫ = 

to your imaginations. To learn more about E كل‎ TÅ ፡ 4 E 

these prints. break into à basic progra "Eo ዶዳ Ses 

that Jou may have and examine the print i: 3 E 


functions being used. I am reasonably sure 
that With a little patience you 5ወ9ህን 3 


l E* REM $$£4$5922594X44X-44545x44A 

rObably improve on the method “being ታር... ብ. eee n 
Utilized. If not, then study it carerulls See ee eC 
atid find cut how it works. YOU May p€ able AB cm =5ኩ Gan Bc ean ook Vm 
to use it in your Gun” ጅዮርዊልክ Ea ncs sn nhi RRS 
devel nt لات‎ GO SUB 100 

opment. 35 cO SUE zee 
P.S To continue the program after the ie o UR ae 
first error, type Goto Se pore IF INKEY$="0" THEN GO SUE 3 
eee —4 م‎ - ሙ = - - 
== Q IF R=C AND B= THEN FRUSE 2 


65: GO TO 5 
Ee GO TO 42 
88 INK 7: PAPER O: BORDER 2: 7 





LS 
100 FOR ودع‎ TO i7 ŠTEF 3 PRINT 
F E P N C 
The Old Wizzard---by J Turner SITES: PRINT AT EI. 
(using the Tor Drawer program: Q; INK p;” ER 
: 4E i 
43 CATA 2,4,5,7,5,16.58,2¢ - = 
&$,29,6,29,11,5,132.128@.232,18.aa,i2 
,24,25 

120 PRINT AT ፳ኛ. INP Z; 3 ال‎ 

SPI 1, 2. ‘es ወ. AT Z, O; ' mansana... 

130 RESTORE 110 FOR 2=3 TO ii 

FERT A,B: FREIHT AT A.B; Ith + 
HIRT 8-3,5,'፲26ፐ Atl BR! FT 
Are. Bid: WEST Q 

442 FRINT AT 2.2. ፲ተ፦ A " 

150 INF 2: PLOT ጅ Q dS E. s 
^. OF RL 0,175. DRAN -253 ፻፳. LRA. 
ዌ  -1 5: PLAT 1.1. DRAW تدع‎ @ Le 
لاع‎ 0.175: DARI -233,0 IDRA تدرش‎ 
73: INE 7 

160 FRINT HT z,ie Iti. ፎ Z= Gb 
LO DIGGER" 

139 RETURN 

FEM x*URMRIMELEIS---«‏ الاح 

2@1l@ LET :15ت‎ LET Beit 

E PRINT RT A,B: OVER 2: Ite b 

230 LET Csá. LET 2218 " 

s so PRINT AT C.C; OVER 1; INF 4 

250 LET Casa. LET 3-1 

seo LET 0-1118 17 
ORE. LET شاع »*زن‎ 


1000 DATA “8” ,367 357.6 221,251., 
0,225,225 


cae "e' 24,680,224 60.92, EST, 
B. : " 
i020 DATA “ር”, 4፡62 ,457 ,ፎ= , ፈፎ 
24ر5‎ 36 55 EY 
10232 DATĂ D'",30,212.802,127,1z27.- 
£7,126.50 

1020 CDATA H", ee ee, pss .55 62 == 
መው € 

1@Se@ FRET URI 

THE OBJECT GF THE GAME Is TO 

GET THE GOLD 6453 AT THE Tor oF 
TRE ECREEN. 

YUL MUET GF COURSE AVOID THE 
MHOHZTEE WI DIC HOLES THET THE 
MONSTER WILL FALL INTE 

UZE THE ARROL EE’ E TO MOVE Aer 

@ TO DIG A HOLE. BEWARE OF መም 
Oe GEN LEVELS, 

Seer IN AHL PRESENTED FY F. MUL 





ያ LUN ar 
LandJdér 





1 REM 
Lunar Lander 
bu Jim Turner 
10 PRINT AT 36,138; “PLEASE PAIT 


. GO SUB 7006 
£9 INK 6: PAPER ወ: BORDER @: C 


LS 

30 INPUT “(KEYBOARD OR (5:TIC 
K?" Z$: IF z$z"s" OR z$£z"k" THEN 

cO TO 50 : 

40 GO TO 6 

5ይ LET sub=@+(400@ AND z£-"s'": 
414500 AND z£z'"k'") 

EQ IF z$="s'" THEN PRINT RT 21. 
@; "Use right joustick port": BEE 
79. PAUSE 188: CLI : GO TO 


62 F z$="k" THEN PRINT AT zs 
e:' id EIER TETUS 2D au". ርር to 
re no e BEEP .5,0: PAUSE 286 
CLS : GO TO 7ወ 
78 INPUT "Instructions?ivY OR H 
y" Z$: IF z£-'"u" THEN GO TO See 
ae CLS : GO ፐር 082 
58 CLS : PRINT " You are the 
commander of the Lunar module m 


-akina its decent to the Lunar b 


551 سم 


ase (HIUKLLLENA? ”” 
ruments show all the 
nu you JUST 

It's not 506 Easy. 
"538 PAUSE ወ: CLS 


Your inst 
eT da 
ha ta iand 


[ገ ርገ ርጋ ፒገ 8 [; [ لا‎ 


290 RETUR 
SAQ REM xxMOJE MANZ + u 
516 PRINT RT ñ, B. QUE F l; INE. 4 
== LET BB+ INKE $=" 3" AND ATI 
R [18,5+3!‹›)] -(፲ዛ4ዞ8ክጅ፡'፡ቕ=""ጅ5”" AND AT 
TR íiM,B-1):5»2) - š _ 
350 LET R=R + (INKEY "$=" -ANDE ATT 
R [ጸዉተ3 .,ጅ) 24) - (INKEY Ss" > AND ATT 
R (A-1,Bi =4) | 
See PRINT AT A,B; OVER 1; Ihr. + 
SOQ RETURN 
400 REM MONE BEAST ++ 5 
455 LET Ox=üx-.1l1: GO SUR S00 ዐ። 
416 PRINT AT C.E: OVER 1, INE دك‎ 
430 LET DsD4:D:B ANS a ar (C ኤው 
1):52!-iDpDoB AND ATTR icC.D-1):;z: 
480 LET ር=ርተ+(ር‹=ዉ ANC ATE E 
5) =ፏ) ICA AND ATTR (ር-3.ኞ! =4) 
46€ Go TO 4588 
470 LET DsD4iD:ilBS:-iD:z15! . . 
ን FRINT AT C.D; OVER 3. INF. + 
'ፊ52 IF A=16 AND ጅ=3 AND CA=1 TH 


EN GO SUB 82 


485 IF ATTR iC41,0) 26 THEN GC Š 
UB 3 

487 IF ጸ=3 AND ጆ=ፋ ANC CA=@ THE 
N GO SuE 82 

490 RETURN 

50925. FEM CIG AILE 

505 IF A:14 THEN RETURN 

is PRINT AT A.B; OVER 3. INK å 
S20 PRINT AT ጓ+3,ኞ; INH ጅፎ: ” DAE 
T Ate. &; 

530 LET E-E.1 0 
zi PRINT PT A,B; OUER 1; INF ó 
== RETURN 

REH «EEG ar DROP ++‏ نمم 

cis INT AT C,D; QUEEF 2; INK 3 
620 LET ር=ር5ተ+3 CEP 
ee FRINT AT C,D; OVER 1, INR li 
"640 IF OTTR (C+1 DY 632 THEN GC 
TO eie 

eae RETURN 

7TOÓÀD REM SCARRY BOLE 1 1 
710 PRINT AT 1,10; INK g; PAPER 

7. FLASH ج11‎ CARRYING $` 

2ፎፎ LET ርጸ=3 

740 RETURN 

T50 LET 52541 5 5 

“EQ LET Casa FRINT- AT 13,3, IN 
F. ብ 

776 PFINT AT i,10," 

Tat RETURN 

REM ssOXYGEN GAUGE++ _‏ نوع 
لاما 38020 &i10 IF Oe .zQ THEN FRUSE‏ 
TO 2S‏ 

£40 FRINT መፕ iau. INE Z ‘eyes 
الم‎ PAPER 2. INF. hone TO Gael; 
FRPER D; 

eap RETURN 

OQ REM --sz2TRFTs&*-- 

PAPER 4: CLS PFEFFER @ 8‏ 13و 

G2Q PRINT AT 18,5, PAFER 7; Fla 
SH 1; INE 4; “PUSH ANY KEY" — 

ese FRINT ST 5 , 4 FREES 7, INP 

4 ; "GOLD DIGGER * ከመ 2 ም 

e4Q IF INKEY በ ተን . THEN GO Tu bee 

eso CL 

aeg RETURN _ MM 

ead RESTORE 1000: FOR ss ie S 

READ 88. FOR Wat TO 7. READ F, 
PORE USA GENER: NEXT N: NEAT ii 


[11111ሀ18[] gm 





Er g$=' s" THEN LET ሯ=ሏ 
I INKEY $=‘'d" THES LET ጅ=ጅ 
KEY€Sz"p'" THEN GO SUB 5 
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ጐታ K, 
HER LE ! = x 
1 REM fed IF IMKEYS-CHES 10 ANI 2 ፐ 
Ll BL HEN LET = š 
. ËH vet IF LhiF E Y S=CHRS 11 ANE i53 
4 CLEAR 3765 E LE! ns ER ስ ይን 
E REM Evergthina in inverie ==> PLOT DUER C;x.v: FALSE 0 
35 optional help section ode PLOT OUER Dix. سس الس‎ ጭል =a 
19 Go SUB agg 334 IF INKEY$<°S" THEN GO TG Se 
iS co TO 188 = 


€. 


RETURN 
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>ዱ IF IHNKEY a" THEN GO TO 22 - 
=ጅ RETURN = 
Di A t wi - 
182 REH 
F TAS عجرو ووو‎ 
A^ = rit [PR TNT AT 5 x: tt ፪5 ገ 
a. X c 0 Á+ = ¿+ : à AUS ا‎ ፣ነዶዲ. , 





eed INPUT “CHARACTER (3: 7 "5 
E 


INKEY£z"q" T Hi LET Izü- =ፎ5 PRINT OVER I;HT FH YiY: N 


MIX SAS 
LET Yizw wi RETURN 
ged REM ESSE 
-i pm, ፡፤ "T jmi Pe ፡ EUG x = = z. ل‎ Go SUE $22 
dii fac ም 584 GO TC 18i 


wh * 


F: 
G 
P 
FACH FA 
| 






1 


[TI c» 
ኑኀ4 
m 


f 
ኻ- ኸ= ኻዘ TH 
F” 


oo 


Up" THEN DRAR CUE 7@e REH 

Ë THEN DRALL CUL a222 INPUT 
" THEN INPUT “R ሙንን 11. "iB ras 4 
ጅ ህጅክ X Ë 784 INPUT "COPY To? Ie 
' THEN : INPUT SCREEN) if 


P 


"COPY 


"n i 
Lo ጩጻ 


ከ1 

EY 

LEY $ ሯ 
THKEY $="b"° THEN 

Êr $ 

YS 

ji — 

E 


`" 
ARR ት4 


[በ 


و 
١‏ 
ቶነ‏ 


u Yr hài 


T cad ec 


"nh 


" Di 5 
|... ow 3 . - 


t am - = I 
Sid QUER X;xl- x=, 


. A 285 IF 5=5 THEN LET 5=16354. 66 
PI = SIHI ` papua 


z 4 Jm 
ler HUE “።. 


. 
67. 


“UR TT 


- FH 
AMEH- 
41 


ከ) (ጋ mra 
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I HEB 


EO : 


።ጆ3 ሀ] ሀ 0 #©# لأا لا‎ BE 








اتلس ل 2 i‏ ليلس 
REH O ee 46308 LET sh=sh+í(sty>x=4& AND ፍቲ ‹=5‏ 6080 
PRINT AT h> 15.6 #* AND sh«3)-(st5»z& AND st«z10 AND‏ 602 
eie Go SUB 1000: co SUB 156820: sh>1):‏ 
GO SUB 2000 4035 IF but=1 THEN LET Spzsp4í,t&‏ 62909 
eae co TO 512 AND sShzi1)-1(,5 AND shz3): LET dr‏ "' 
REM SENDER GENE: sdr-~(1.5 AND íshzi1 OR shza3!!-iz.‏ 1002 


5 AND shz2i: LET የ=፤፻-= 

4242 LET ዩዔ=(5ዴዔቓ(5ክ) AND but=0@)+ I 
fish) AND butzlil!i: 

4845 IF but=@ THEN SOUND 7,62 
4o50 IF butzj THEN SOUND 6, 62 T>; 2 
2ع‎ 15:9 , 15:12 , 5 

4&6 RETURN 

4508 LET ህ1=ወቓ: IF INKEY£-"" ÜB 
f ¿=ë THEN PAUSE 2. ርር TO 4054 
"iod IF INKEYS$="2" THEN LET but= 


4510 LET shzsh-iINKEY€£-"8" 1 + í INE 
Ey g="5"3: IF sh:1 THEN LET sh= 
4520 IF sh»3 THEN LET طع‎ == 

4530 GO TO 4054 

5810 PRINT AT 21,10; INVERSE 1;" 
Press any Key": PARISE @ 

7@808 GO SUB 3@8@8: GO SUB Face 
7018 LET P$= û6’: LET م‎ 22188 LET 
Sp=@: LET pOS-ÍLEN ጠቓ-48) RND 


7020 LET ከሯ=ፎ13- (ከክ “3865) : LET hi-h 
2: LET ፲የ=8፻ጅ: LET gz.5: LET sh=2 
7100 DIM s$(3): LET 58(2) ="=": L 
ET s$(2)}="0": LET $$ (3) - 
7118 DIM የዌ፲=) : LET Fst 4)=፲”: L 
ET የ8 (ፎ)=ኮ": LET የሕ (2) ="፳” 


7180 LET q$=p*: LET የ=2ሮ፳ - 

7999 RETURN 

aaao DIM b$ (321: FOR x-1 Ta Be: 
LET bX*$ixij)jzCHPE*X (144-4 (ND x71): NE 
XT x: LET 832ዔ=ኩቅ 

201 LET 83 5+ 5ح‎ ++ 5 5+ + 

5022 LET a$-a$ra$tat 

gza LET m£-zasS-c IJKLLLMN'"4a*$ 
33534 RETURN mE EE 


5516 FOR x =USE 
AAD READ y: FOKE x," 

9830 NEXT x: RETURN 

9100 DATA 42 ١ 15 . 2ل‎ 1824 135 2 a. 
e. © , 06 , 025 285 22 

5402 DATA 6,6.6. 5,654,363 22 5 2 





"ga" TÛ USR "u"47 


, © , 2 , 1293 . 21 , 25 ,© 
5464 DATA 0$.,0,56,68,68,130,1,0,0 
, © , 129 , 132 , 132 , 12 2 , 2 , 2 
3506 DATA e. e ሯ.,ጅ.ጄጅ, 325,125... 


Q,2,12,147,292,2,.,1z2 
# ë. 20,31 
,06,0,48,104,184,GcE, 
,2£55 


OQ. 
2110 DATA e, 5. e, es 14, 4 70 . 134 , 8 
9112 "DATA 16, 4e, 10, 198 ,56,8,28,2. 
15 , 48 , 26 , 214 , 46 , +86 , 16.16 
9114 DATA 225 , 152 136, ae, an, 3452. 
م‎ , © , 229 , 152 136 ,56, 346. 10,68, 
0116 DATA 39, eS, i? 18, 6, l., 6829 
,25,17,26,46.81,85,1z28 
6118 CATA 16,48, 40, 182,565.48, 
255 


„5Ê 
2.1 

5 6 , © , 15 , 236 , 8 
2107? BATA 8,6.,6., 
6,3 
25 


fa 
m 
o 
ኑ 
ከን 
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ዬ 
ت‎ >= fw 
Sous 


اک 
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ፎሎ "'s'as—Y 





1212 IF hishe AND qX-P$ THEN PAU 
SE 2: GO TO 1048 

1@20@ PRINT AT hi1,15;" " 

126222 ፲ኛ h<S OR h +2150 THEN GO TO 


1@24 PRINT RT hz,15; INK Sips 
1030 LET q$zp: LET ከኋ=ከሯ 
1646 RETURN 
1500 REM Promf around 

1510 PRINT AT 21,68; ጠቕ ipos- “15 ፐር 
Pos416) 

1528 LET pos=pas4sp: LET dr=dr+3 
: LET hzsh-dr: LET طخ - 23ح 2ط‎ + 13 
1525 LET POS=POS+((LEN m$-4Q AN 
D pos:zi16!'-(ILENH m$-4@0@) AND pos: 
z(LEN ጠቓ-23ሮ)!)! 

1530 GO SUB suk: RETURN 

ፎሮፎር PRINT aT @.@; INK 7; “ALTITU 
DE:";INT he" "° 

citri PRINT RT @,24; INE 7; “FUEL: 


2626 PRINT INK 7;AT 2,686;"Doumn Ra 
nge:";AT 3,3; (”‹” AND pos LEN m$ 
72); ABS INT i (LEN m$r21-posi; ("> 
" AND pos <LEN m$£-2);" "AT 2,27: 
"ROD'";RHT 3,27, (" " AND ABS dr +10 
); FLASH !1 AND drei; RBS (INT d 
ri; FLASH 8;" 

2999 RETLUDPN 

300 REM ar ayni: 

3010 IF pos-LEN m$. وو‎ HND pos- 
LEN ጠቓ /ሯፎ›=-3 AND dr«z3 THEN PRIN 





T AT 21.15;"U": SOUND 7,63: PAUS 
E 120: GO TO 3408 
3612 IF h»2150 THEN CLS : BEEP 


5,-20: PRINT AT 12,02; FLASH 1; "E 

scape uUelocitu-Mission Aborted": 
PAUSE 60: GO TO 02 

3015 SOUND 6,6;7,7;8,16;9,16,1@, 

15 12 , 1262 13 , 

3O20 LET b=0: FOR x=1 TO 2e: 

3030 SOUND 656,x418 

30640 PLOT OVER 2: 124+ ( ) 8122-2 

)«14(02 AND RND»2.7)) , CIRND&15) £14 
(3 AND END-;.811 

309050 LET b=b4+1: IF ኔ›3 THEN BORE 

ER Q9: LET b=@: PAUSE Z 

232060 BORDER ኑኔ +5 

3070 PRUSE e: NEXT x 

SEE SOUND 7 E 65; 15 , e: 

3658 co TO 3450 

3400 CLS : PRINT AT 4.5; "Success 
FUL landing...."”° “TAB 10; INVERZ 

E 1: “RATING “j INT ( ፻ዱ855 fpos+e} 

-LEN m$£.;2xaB5 dr-3! 

3410 GO TO 35808 5 

3450 CLS PRINT AT 4.4; FLASH 1 
"Crash Landing at ም ተ! ar fps": 

BEEP 75,-308 

INPUT "Touch ""ENTER"" to 8‏ لاست 
c again" ;zs$: RESTORE BORDER @:‏ 
CLS : GO TO 728228‏ 
4ሯፎሯ REM EE‏ 

40610 LET butzó: IF STICK il1,2)-8 
AND STICK (ሯፎ.ፎ) =8 OF f قات‎ THEN 

PAUSE 2: GO TÓ 4049 

4020 LET st= STICK (1,2): LET bu 
t= STICK (2,2) 
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9083 Pat’, So 
FROM IN 62400265401 

9084 DATA a> "22 SEF IIT 2: LED 
255 , 1 255 , رقع , 3غ‎ 152 115 15 22 8 
11 3519432 245 , 155 =ጋ 242 14 
9256 DEF FN LigisA-INT 1ይ/-፳፳5) 2 
9685 DEF FN Hinr-INT 14-258) 
8558 RETURN 
THERE ARE MANY TRICe8 vI. late JS 

WITH THIS PROGRA“, £85 .መ፲:2ሣ Y 
OU CAN DISCOVER, 


HALE Fi i 


768 IF 5+0 THEN LET 515-11 14 
4+32765ወ di 
710 IF F=@ THEN LET F-18384: GO 


F 
TO 7144 
712 IF F:2 THEN LET F 
14277068 i m" 
714 PORE 65401,FN Ais! 
235 POKE 654892.FN Lit! 
245 FORE 65482,FN AIF: 
TER PORE 85402,.FN LiF: 
Ved RANDOMIZE USR 554 فاخ‎ 
725 RETURN 
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7n 
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25; 'H = 3} 
582 LET 5=፤5-2፤! 6511437702 
S@4 PORE ይ=ራሩጅሯፎ FN LIS) 

=ሯ=5 POKE 2548i1,FN HIS! 

=55= POKE 55422,0 

51365 POKE 5423,64 

Gif RANDOMIZE USR 65453 

G13 RETURN 

5665 REM B 
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adeo ON ERR GO TO gop 
goga EORFLDER ë 
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95812 DEF FN xixl1=x/ 5 — 
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=ሮ75 REM W Bie sae = 

FROM iz | 52 1 02554 

TO IS IN ፎ፳4ፋሎፍ= خلا كط ين‎ 
903 DATA 3 ,ፎ=፳= ,ፎ5 .5ሯ. 1 قاع‎ 255 ፣ፎ= 
7,91. lee. Si ri 1: 81ح‎ > — 
9-1 FEM ENS Ea JESS. SSE 
goaz CATA 41 ; ez ETS 1,255.25, =: 
6,47,118 Ep Qa . 11 55 4545, TEES. 
8S Geo 1ع ,تاوخ‎ 





UTILITIES: 


1) 2-8፲፻፻፲ 

2j ፐዐጪሂ፲፤፲ 

3) BETELT 

di FRSTLüBD 

5) DEAS 

ይን 2a CONPILEP 

7) ROT 7 

6) ñËTIST 

3) BULTIFILE mann S825 TI 

10) ETIL. HERS, 2H.B C SHER dg TTL. IH GIR} 
11) 22 PRü-FILE 

12) ፳፳8፣ GTHEPS f 24. HI BES GPRERICS, HRH 


rm 
"m 


à FORTH í including devel. screent far the treg Pürihi 
9 iki 

821181 PASCAL 

d) ፪ [77 SER üF 8፳252፲፪51 


H Salt! 


This i$ a Sacrifice sale in order te 5139 ón top of Wu Personal 
finance problew; and to continue ty give the ers aroup the 
benefit of hardware and software reuiees in the pewsletter, 

This ai 5 WOU May well know is the opportunity to provide fof a 
back-up to Sour TSiPDU or ያ5-፪1 as eil ut to ase Yor s FELLY 
deueloped and intact wmini-Cokputtf castes. 

Thi: 15 an offer for serieus bidders obly ahid will q4 INTACT to 
the ibdiüidUal Who progades the best bid aver $150. Gi. 

The following 15 a Listing of the full Fakat: 


1) 22-53 
2) E-Z 60 keubaard 
3) ፻፥፪9፻34፳ bdk 


4) Realistic Minisette ዓ tape recereer 
5) Regopak Hi-Res Graphics ኮ5ር፳89%ና 
) F5-1 power supply {enough poyer ፻፳ zii resuiregents 


Inverse dide‏ زم 

ûJ EHF of composite uidea outputs af beard 

4j Reset switch 

ifi all cables and connec Lars 

11) a fof board with FORTHLASPETC ghd FBS at the Pilp fF ሀ 
itch {Plus ፳3ኬ89[ 1 
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1j BLACK CRYSTAL f 180 ABUERTURE PERA 


3 STRE TRER 

2፤ BICTRTOR 

qj TBE PARSEL RD THE BEAST 
5] ፲ሽሀ፳5፻፪፥ 

£1 CHESS 

7) REB ALERT 

ü] RGTHERSHTE 

5፤ 8821 2804፻፲ 

ifi HER CORSE 

11) ሂ፪፳ዮን 

22) ALIEN SPACESHIP 
ixi FRGGEER 

id} MERC HRATH 

15) ዘ6፻51፲ 

1&3 BGHBIT 

ያን CHECKERS 

ig) 38 š ዘበር FS 
14) HIER ፻5፻፻፻7 
2) CITTGF ኒ0ቨ 

21) ኃ፲፳፻፤ቪዘ5፲፻፻5 
22) ABIL 

23) BRICK BUSTER 
241 BHRT 

25) PH0506F 

26) SERRGUHD 

2r) ፲፪፲፪ኃመ፻ TRHILS 
25) EÛ 

29) ZAPRAR 

3m PORER 

31) SCUDT FIGHTER 
32) 3h ORBITER 

33) CONFLICT 

34) TRABER TEILGSY 
35) BPPEüS, 25 Tü 30 GREPS 
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